home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbapg.arc / DWAIT.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-08-05  |  896 b   |  23 lines
  1. ; Subroutine.: dWAIT.ASM
  2. ; Author.....: Raymond Weisling
  3. ; Date.......: 5/28/83, 6/10/83
  4. ; Notice.....: Copyright 1983, Raymond Weisling, All Rights Reserved.
  5. ; Notes......: Wait for console key or time-out delay.
  6. ; 
  7.     ORG    42000    ; dBASE II FREE AREA
  8. LOOP:    LXI    H,COUNT    ; COUNTER ADDRESS
  9.     DCR    M    ; REDUCE COUNTER BY ONE
  10.     JNZ    CHECK    ; IF NOT ZERO, CHECK CONSOLE FOR KEY
  11.     INR    L    ; POINT TO USER DELAY VALUE
  12.     DCR    M    ; REDUCE DELAY BY ONE EVERY 35 MSEC
  13.     RZ        ; RETURN IF ZERO
  14. CHECK:    MVI    C,6    ; CONSOLE I/O FUNCTION
  15.     MVI    E,0FFH    ; SET CONSOLE INPUT REQUEST FLAG
  16.     CALL    5    ; BDOS ADDRESS, READ CONSOLE STATUS
  17.     CPI    0    ; TEST RESULT RETURNED
  18.     JZ    LOOP    ; LOOP AGAIN IF NO KEY WAS HIT,
  19.     RET        ; ELSE QUIT IMMEDIATELY
  20. COUNT    DB    0
  21. USER    DB    0    ; FILLED BY dBASE II POKE, LAST BYTE
  22.     END
  23.